subroutine init_table_param
  use table_param
  implicit none

  ! Simulated objects
  nullify(sim_obj)
  default_alloc_sim_obj=1000
  add_alloc_sim_obj=100

  ! Deleted simulated objects
  nullify(del_sim_obj)

  ! Event table
  nullify(event_table)
  default_alloc_event_table=1000
  add_alloc_event_table=100

  ! Event list in simulated object
  alloc_event_n_in_sim_obj=100

  ! Spontaneous event table
  nullify(spont_event_table)

  ! Profile table
  nullify(event_profile)
  default_alloc_event_profile=1000
  add_alloc_event_profile=100

  ! Event table in profile table
  alloc_event_n_in_profile=100

  return

end subroutine init_table_param
